home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 12 / Tiger_Disk_012_19xx_Tiger-Crew-Disk_de_Side_B.d64 / - ende - (.txt) next >
Commodore BASIC  |  2023-02-26  |  1KB  |  12 lines
  1. 1 print"(c)...lgk":a$="            [146]":poke53280,.:poke53281,.:fors=1to25:print"":next:printtab(19);"[169][223][146]":printtab(18);"[169]  [223][146]":printtab(17);"[169]    [223][146]":printtab(16);"[169]      [223][146]":printtab(15);"[169]        [223][146]":printtab(14);"[169]          [223][146]":printtab(13);"[169]            [223][146]":printtab(14);"[158]            [146]":gosub11
  2. 2 printtab(13);"   e n d e   [146]":gosub11:printtab(13);"[169]            [223][146][158]":gosub11:printtab(14);"   d e r    [146]":gosub11:printtab(13);"[169]            [223][146][158]":fors=1to4:printtab(14);a$:next:printtab(14);" t i g e r  [146]":printtab(14);a$:printtab(14);"     -      [146]":printtab(14);a$:printtab(14);"  d i s c   [146]":fors=1to5:printtab(14);a$:next
  3. 3 printtab(13);"[169]            [223][146][158]":fors=1to3:printtab(14);a$:next:printtab(14);"  [175]     [164]   ":printtab(14);" [167][172][205][175][185][175][206][187][165]  ":printtab(14);"  [165] [185][192][185] [167]   ":printtab(14);"  [165][215] = [215][161][165]  ":printtab(14);"  [165][200]  [167][220][181][165]  ":printtab(14);"  [205][167][220]  [220][206]   ":printtab(14);"   [178][196][211][196][219]    ":printtab(14);"   [188][162][193][162][189]    ":fors=1to3:printtab(14);a$:next
  4. 4 printtab(13);"[169]            [223][146]":printtab(12);"[169]              [223][146]":printtab(11);"[169]                [223][146]":printtab(11);"[169] [169] [169] [169] [169][223] [223] [223] [223] [223]"
  5. 5 printtab(11);": :..::.::::.:.:::":printtab(11);".::.::.::.::..:.:.":a=a+1:ifa<5then5
  6. 6 printtab(11);"..:: .::.: : .:..:":printtab(12);":..:. ...: ::.: .":a=a+1:ifa<10then6
  7. 7 printtab(11);".  : .: .  : .: .:":printtab(12);".: .. . .: .  : .":a=a+1:ifa<15then7
  8. 8 printtab(12);". : .  . . :.. .":printtab(13);". . .. . .  ..":a=a+1:ifa<20then8
  9. 9 printtab(14);". .  . .   .":printtab(13);".   .     .  .":a=a+1:ifa<25then8
  10. 10 forn=1to13:print"":next:printtab(17);" ende [146]":forn=1to5:print"":next:poke198,0:wait198,1:end
  11. 11 fors=1to6:printtab(14);a$:next:return
  12.